PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Updates⁄New/TicklerMaster™ File/background_2728.txt

Text File | 1988-06-01 | 16.7 KB | 782 lines

-- background: 2728 from stack: in
-- bmap block id: 16574
-- flags: 4000
-- background id: 0
-- name: To Do
----- HyperTalk script -----
on openStack
  visual barn door open very slow
  if field "date" is the long date then pass openStack
  else update the long date
end openStack


on openBackground
  get field id 6
  put it into thisDay
  get the long date
  if it = thisDay then
    hide background button id 19  --background id 19 is button"Today"
  else
    show background button id 19
  end if
  hide menubar
end openBackground

on update theDate
  set cursor to 4
  put empty into field "Actions"
  put empty into field "Done"
  put empty into field "Links"
  get theDate
  put it into field "Date"
  convert it to seconds
  put it into today
  put 60*60*24 into oneDay
  put 1 into lineNumber
  repeat with x = 2 to the number of cards
    get (field id 1 of card x)
    convert it to seconds
    if it is empty then next repeat
    if it <= today and (field "Completed" of card x) is empty then
      put (field "Abstract" of card x) into line lineNumber of field "Actions"
      repeat (today - it) div oneDay times
        put "•" before line lineNumber of field "Actions"
      end repeat
      put (the name of card x) into line lineNumber of field "Links"
      add 1 to lineNumber
    end if
  end repeat
end update

on mouseUp
  if the name of the target contains "Go" then
    get second word of the short name of the target
    go to line it of field "Links"
  end if
end mouseUp

on closeStack
  visual barn door close very slow
end closeStack






-- part 6 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=103 top=44 right=65 bottom=381
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 5
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Date


-- part 16 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=56 top=91 right=286 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Actions


-- part 17 (field)
-- low flags: 01
-- high flags: 4002
-- rect: left=430 top=91 right=286 bottom=455
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Done
----- HyperTalk script -----
on mouseUp
  put (item 2 of the clickLoc - 79) div 12 into lineNumber
  if line lineNumber of field "Actions" is empty then exit mouseUp
  if line lineNumber of field "Done" is empty then
    put "‚àö" into line lineNumber of field "Done"
    set lockScreen to true
    push card
    go to line lineNumber of field "Links"
    put (the abbr date & " at " & the time) into field "completed"
    pop card
    set lockScreen to false
    exit mouseUp
  else
    put empty into line lineNumber of field "Done"
    set lockScreen to true
    push card
    go to line lineNumber of field "Links"
    put empty into field "Completed"
    pop card
    set lockScreen to false
  end if
end mouseUp



-- part 18 (field)
-- low flags: 81
-- high flags: 4007
-- rect: left=190 top=91 right=286 bottom=432
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Links


-- part 19 (button)
-- low flags: 80
-- high flags: A000
-- rect: left=324 top=284 right=327 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go to Today
----- HyperTalk script -----
on mouseUp
  visual wipe left
  update the long date
  hide bkgnd button id 19  --"Go to Today"
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=32 top=91 right=103 bottom=57
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go 1


-- part 22 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=32 top=103 right=117 bottom=57
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go 2


-- part 23 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=32 top=117 right=130 bottom=57
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go 3


-- part 24 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=32 top=130 right=143 bottom=57
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go 4


-- part 25 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=32 top=142 right=156 bottom=57
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go 5


-- part 26 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=32 top=156 right=170 bottom=57
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go 6


-- part 27 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=32 top=170 right=183 bottom=57
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go 7


-- part 28 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=32 top=183 right=195 bottom=57
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go 8


-- part 29 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=32 top=195 right=209 bottom=56
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go 9


-- part 30 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=32 top=209 right=222 bottom=57
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go 10


-- part 31 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=32 top=221 right=235 bottom=57
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go 11


-- part 32 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=32 top=234 right=248 bottom=57
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go 12


-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=454 top=115 right=145 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 1017 / 1017
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Phone
----- HyperTalk script -----
on mouseUp
  get the selection
  push card
  go to stack "Phone"
  dial it
  pop card
end mouseUp



-- part 35 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=454 top=91 right=116 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 17481 / 17481
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Address
----- HyperTalk script -----
on mouseUp
  get the selection
  push card
  visual effect iris open
  go to stack "Address"
end mouseUp



-- part 36 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=425 top=26 right=55 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 20689 / 20689
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect zoom out
  go home
end mouseUp



-- part 37 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=459 top=25 right=55 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 24830 / 24830
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To reminder
----- HyperTalk script -----
on mouseUp
  go to last card of bkgnd "Reminder"
end mouseUp



-- part 38 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=32 top=248 right=261 bottom=57
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go 13


-- part 39 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=32 top=261 right=274 bottom=57
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go 14


-- part 40 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=32 top=274 right=287 bottom=57
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go 15


-- part 41 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=454 top=144 right=175 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 21209 / 21209
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Weekly
----- HyperTalk script -----
on mouseUp
  visual zoom out
  go to stack "Datebook"
  goWeekly the seconds
end mouseUp




-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=454 top=203 right=238 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 22855 / 22855
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Yearly
----- HyperTalk script -----
on mouseUp
  visual zoom out
  go to stack "Datebook"
end mouseUp






-- part 43 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=170 top=281 right=328 bottom=309
-- title width / last selected line: 0
-- icon id / first selected line: 20965 / 20965
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Create a New ReminderCard
----- HyperTalk script -----
on mouseUp
  visual iris open very slowly
  set lockScreen to true
  go last card
  doMenu "New Card"
  set lockScreen to false
end mouseUp



-- part 44 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=165 top=5 right=38 bottom=321
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Plan—Of—Day for...
----- HyperTalk script -----
on mouseUp
  ask "Plan of the Day for which day"
  put it into whichDay
  visual wipe up
  set cursor to 4
  put empty into field "Actions"
  put empty into field "Done"
  put empty into field "Links"
  convert whichDay to long date
  get whichDay
  put it into field id 6  -- field date
  convert it to seconds
  put it into today
  put 60*60*24 into oneDay
  put 1 into lineNumber
  repeat with x = 2 to the number of cards
    get (field id 1 of card x)
    convert it to seconds
    if it is empty then next repeat
    if it = today and (field "Completed" of card x) is empty then
      put (field "Abstract" of card x) into line lineNumber of field "Actions"
      put (the name of card x) into line lineNumber of field "Links"
      add 1 to lineNumber
    end if
  end repeat
  show background button id 19
end mouseUp





-- part 45 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=12 top=285 right=326 bottom=86
-- title width / last selected line: 0
-- icon id / first selected line: 6460 / 6460
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Yesterday
----- HyperTalk script -----
on mouseUp
  visual wipe right
  get field id 6
  convert it to seconds
  put it into whichDay
  put (60*60*24) into oneDay
  subtract oneDay from whichDay
  set cursor to 4
  put empty into field "Actions"
  put empty into field "Done"
  put empty into field "Links"
  convert whichDay to long date
  get whichDay
  put it into field id 6  -- field date
  convert it to seconds
  put it into today
  put 60*60*24 into oneDay
  put 1 into lineNumber
  repeat with x = 2 to the number of cards
    get (field id 1 of card x)
    convert it to seconds
    if it is empty then next repeat
    if it = today and (field "Completed" of card x) is empty then
      put (field "Abstract" of card x) into line lineNumber of field "Actions"
      put (the name of card x) into line lineNumber of field "Links"
      add 1 to lineNumber
    end if
  end repeat
  get field id 6
  convert it to seconds
  put it into thisDay
  get the date
  convert it to seconds
  if it = thisDay then
    hide background button id 19
  else
    show background button id 19
  end if
end mouseUp







-- part 46 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=416 top=289 right=322 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 6179 / 6179
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tomorrow
----- HyperTalk script -----
on mouseUp
  visual wipe left
  get field id 6
  convert it to seconds
  put it into whichDay
  put (60*60*24) into oneDay
  add oneDay to whichDay
  set cursor to 4
  put empty into field "Actions"
  put empty into field "Done"
  put empty into field "Links"
  convert whichDay to long date
  get whichDay
  put it into field id 6  -- field date
  convert it to seconds
  put it into today
  put 60*60*24 into oneDay
  put 1 into lineNumber
  repeat with x = 2 to the number of cards
    get (field id 1 of card x)
    convert it to seconds
    if it is empty then next repeat
    if it = today and (field "Completed" of card x) is empty then
      put (field "Abstract" of card x) into line lineNumber of field "Actions"
      put (the name of card x) into line lineNumber of field "Links"
      add 1 to lineNumber
    end if
  end repeat
  get field id 6
  convert it to seconds
  put it into thisDay
  get the date
  convert it to seconds
  if it = thisDay then
    hide background button id 19
  else
    show background button id 19
  end if
end mouseUp







-- part 47 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=454 top=174 right=204 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 15972 / 15972
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Monthly
----- HyperTalk script -----
on mouseUp
  visual zoom out
  go to stack "Monthly Calendar"
end mouseUp




-- part 49 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=454 top=237 right=285 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print
----- HyperTalk script -----
on mouseUp
  answer "What do you wish to print?" with "Cancel" or "Print Card" or "Print All"
  if it is "Print All" then
    ask "Print How Many Days?" with 1
    put it into numOfDays
    set lockScreen to true
    open printing with dialog
    repeat with y = 1 to numOfDays
      get the number of lines of field id 18
      put it into thisNum
      print this card
      repeat with x = 1 to thisNum
        get line x of field id 18
        go it
        print this card
        go card id 2898
      end repeat
      send mouseUp to bkgnd button id 46  --"Tomorrow"
    end repeat
    close printing
    set lockScreen to false
  else
    if it is "Cancel" then
      close printing
      exit mouseUp
    else
      if it is "Print Card" then
        doMenu "Print Card"
      end if
    end if
  end if
end mouseUp



-- part 48 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=16 top=37 right=316 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ©Copyright
----- HyperTalk script -----
on mouseUp
  hide field id 48
end mouseUp